﻿Public Class frm_quanly

    Private Sub mnu_themtk_ItemClick(sender As System.Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles mnu_themtk.ItemClick
        frm_themtk.MdiParent = Me
        frm_themtk.Show()
    End Sub

    Private Sub mnu_doimk_ItemClick(sender As System.Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles mnu_doimk.ItemClick
        frm_doimk.MdiParent = Me
        frm_doimk.Show()
    End Sub

    Private Sub mnu_dx_ItemClick(sender As System.Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles mnu_dx.ItemClick
        For i As Integer = Me.MdiChildren.Length - 1 To 0 Step -1
            Me.MdiChildren(i).Close()
        Next
        frm_Login.Show()
        Me.Close()

        For i As Integer = MdiChildren.Length - 1 To 0 Step -1
            MdiChildren(i).Close()
        Next
    End Sub

    Private Sub mnu_hocvien_ItemClick(sender As System.Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles mnu_hocvien.ItemClick
        frm_hocvien.MdiParent = Me
        frm_hocvien.Show()
    End Sub

    Private Sub mnu_giaovien_ItemClick(sender As System.Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles mnu_giaovien.ItemClick
        frm_giaovien.MdiParent = Me
        frm_giaovien.Show()
    End Sub

    Private Sub mnu_lophoc_ItemClick(sender As System.Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles mnu_lophoc.ItemClick
        frm_lophoc.MdiParent = Me
        frm_lophoc.Show()
    End Sub

    Private Sub mnu_monhoc_ItemClick(sender As System.Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles mnu_monhoc.ItemClick
        frm_monhoc.MdiParent = Me
        frm_monhoc.Show()
    End Sub

    Private Sub mnu_sukien_ItemClick(sender As System.Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles mnu_sukien.ItemClick
        frm_sukien.MdiParent = Me
        frm_sukien.Show()
    End Sub

    Private Sub mnu_xemlh_ItemClick(sender As System.Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles mnu_xemlh.ItemClick
        frm_xemlichhoc.MdiParent = Me
        frm_xemlichhoc.Show()
    End Sub

    Private Sub mnu_xemlt_ItemClick(sender As System.Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles mnu_xemlt.ItemClick
        frm_xemlichthi.MdiParent = Me
        frm_xemlichthi.Show()
    End Sub

    Private Sub mnu_xemdiem_ItemClick(sender As System.Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles mnu_xemdiem.ItemClick
        frm_xemdiem.MdiParent = Me
        frm_xemdiem.Show()
    End Sub

    Private Sub mnu_xeplichthi_ItemClick(sender As System.Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles mnu_xeplichthi.ItemClick
        frm_xeplichthi.MdiParent = Me
        frm_xeplichthi.Show()
    End Sub

    Private Sub mnu_phancong_ItemClick(sender As System.Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles mnu_phancong.ItemClick
        frm_phancong.MdiParent = Me
        frm_phancong.Show()
    End Sub

    Private Sub mnu_nhapdiem_ItemClick(sender As System.Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles mnu_nhapdiem.ItemClick
        frm_nhapdiem.MdiParent = Me
        frm_nhapdiem.Show()
    End Sub

    Private Sub mnu_nhanhv_ItemClick(sender As System.Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles mnu_nhanhv.ItemClick
        frm_nhanhocvien.MdiParent = Me
        frm_nhanhocvien.Show()
    End Sub

    Private Sub BarButtonItem2_ItemClick(sender As System.Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem2.ItemClick
        frm_themgiaovien.MdiParent = Me
        frm_themgiaovien.Show()
    End Sub

    Private Sub BarButtonItem6_ItemClick(sender As System.Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem6.ItemClick
        frm_bkrs.MdiParent = Me
        frm_bkrs.Show()
    End Sub

    Private Sub BarButtonItem5_ItemClick(sender As System.Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem5.ItemClick
        frm_dangkybanquyen.MdiParent = Me
        frm_dangkybanquyen.Show()
    End Sub
End Class
